﻿Public Class ViTri
    Private _vitri As String

    Sub New()
        _vitri = ""

    End Sub

    Public Property ViTri As String
        Get
            Return _vitri
        End Get
        Set(value As String)
            _vitri = value
        End Set
    End Property


    Public Function LayDanhSach() As List(Of ViTri)
        Dim dsvt As New List(Of ViTri)
        dsvt.Insert(0, New ViTri With {.ViTri = "ALL"})

        dsvt.Insert(1, New ViTri With {.ViTri = "Hậu vệ"})

        dsvt.Insert(2, New ViTri With {.ViTri = "Tiền vệ"})

        dsvt.Insert(3, New ViTri With {.ViTri = "Tiền đạo"})

        dsvt.Insert(4, New ViTri With {.ViTri = "Thủ môn"})
        Return dsvt
    End Function
End Class
